تكبير النموذج بشكل تدريجي رائع عند التحميل
اكتب الاجراء التالي
Public Sub Explode(frm As
Form)
'تحديد سرعة توسع النموذج
'غير هذه القيمة وشاهد الفرق
Const SPEED
= 0.005
Dim Ctl As Control
Dim w!, h!
Dim fappear%, fBS%
'االخروج من
الاجراء اذا كان النموذج مكبراً، او مصغراً
If frm.WindowState <>
vbNormal Then Exit Sub
'اخفاء الاداوت الموجودة في النموذج
For Each Ctl In
Controls
Ctl.Visible = False
Next Ctl
'حفظ ابعاد النموذج
w =
frm.Width
h = frm.Height
'تصغير النموذج وتوسيطة في الشاشة
frm.Move
Screen.Width / 2, Screen.Height / 2, 0, 0
frm.Show
'تكبير النموذج
تدريجياً
While frm.Height < h
DoEvents
frm.Move (Screen.Width -
frm.Width) / 2 _
, (Screen.Height - frm.Height) / 2 _
, frm.Width + (w *
SPEED) _
, frm.Height + (h * SPEED)
Wend
'اظهار الادوات
For Each Ctl
In Controls
Ctl.Visible = True
Next Ctl
End Sub
في حدث تحميل الفورم ضع التالي
Private Sub
Form_Load()
Explode Me
End Sub